100 PRINT "10 DICE ROLLS--GIVE ME A STARTER BETWEEN 1 AND 100"
105 INPUT Z
110 FOR I=1 TO Z
120 Y=RND(X)
130 NEXT I
140 FOR G=1 TO 10
150 GOSUB 350
160 IF D<4THEN 290
170 IF D=12 THEN 290
180 IF D=7 THEN 310
190 IF D=11 THEN 310
200 LET D9=D
210 GOSUB 350
220 IF D=D9 THEN 250
230 IF D=7 THEN 270
240 GOTO 210
250 PRINT "YOU WIN -- BY MAKING YOUR POINT."
260 GOTO 320
270 PRINT "YOU LOSE --BY FAILING TO MAKE YOUR POINT."
280 GOTO 320
290 PRINT "YOU LOSE ON FIRST ROLL"
300 GOTO 320
310 PRINT "YOU WIN ON FIRST ROLL"
320 NEXTG
330 STOP
340 REM
350 REM THE DICE ROLL
360 LET D1=INT(6*RND(X)+1)
370 LET D2=INT(6*RND(X)+1)
380 LET D=D1+D2
390 RETURN
400 END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 